﻿unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  dxRibbonForm,
  Dialogs, dxSkinsCore, dxSkinsdxRibbonPainter, cxClasses, dxRibbon, cxControls,
  dxSkinSeven, cxStyles, dxSkinscxPCPainter, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  dxSkinsdxBarPainter, dxBar, dxSkinMcSkin, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
  dxSkinOffice2010Black;

type
  TForm1 = class(Tdxcustomribbonform)
    Ribbon: TdxRibbon;
    v1: TcxGridDBTableView;
    l1: TcxGridLevel;
    grd1: TcxGrid;
    barmen1: TdxBarManager;
    btn1: TdxBarButton;
    btn2: TdxBarButton;
    barmen1Bar1: TdxBar;
    RibbonTab1: TdxRibbonTab;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses MainFrm, common;

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 RemoveBtn(Name);
 Action:=caFree;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddButton(name,Caption);
  Ribbon.ColorSchemeName:=ColorSheme;
end;

end.
